(comint-insert-clicked-input): Insert clicked-on previous input without

properties.  Patch from John Paul Wallington <jpw@shootybangbang.com>.

diff --git a/lisp/comint.el b/lisp/comint.el
index f864da964968cc18d6452a2eede94ac207020a4f..7aeba47baec50de0b217a5b555ddd10b3a4596ab 100644 (file)
--- a/lisp/comint.el
+++ b/lisp/comint.el
@@ -779,10 +779,9 @@ buffer.  The hook `comint-exec-hook' is run after each exec."
           (process-mark (get-buffer-process (current-buffer))))
        (point))
       ;; Insert the clicked-upon input
-      (insert-buffer-substring
-       (current-buffer)
-       (previous-single-char-property-change (1+ pos) 'field)
-       (next-single-char-property-change pos 'field)))))
+      (insert (buffer-substring-no-properties
+              (previous-single-char-property-change (1+ pos) 'field)
+              (next-single-char-property-change pos 'field))))))
 
 
 \f